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MODULE CREATE ( seeanil tie tenn 
IDENT = yen teh ‘ 
= 
BEGIN 


' 
[eRe AeRHHRHeKeHHHARHARHeRe HHH HHH Hee KeeeTHKeKeHreeeeeeeneeneeeenereeeener 
! 


:# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIE 

ONLY IN ACCORDANCE H TH RAS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i: Taansteketen” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


% 
a 
® 
« 
& 
« 
* 
« 
® 
* 
'@ w 
« 
® 
® 
€ 
* 
® 
« 
* 
t 


:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘: CORPORAT tie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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calling COPY_INFO from secondary context. 
v04-001 CDS0006 Christian D. Saether 12-Sep-1984 


‘ee 

‘ 

FACILITY: FIIACP Structure Level 2 

; ABSTRACT: 

i This module processes the create function. It creates a file with the 
: attributes requested. enters it in a directory if desired, and 
accesses it if requested. 

; ENVIRONMENT : 

i STARLET operating system, including privileged system services 
: and internal exec routines. 

wy 

' 

: AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Mar-1977 15:05 

. MODIFIED BY: 

i v04-002 (DS0007 Christian D. Saether 2-Jan-1985 

: Set the CLF_HDRNOTCHG flag in PROPAGATE_ATTR when 

i 
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va , a din 1985 17:42:14 AX-11 
~ - o : : Xe i 
; ‘ @ spat) 4 12:45:26 Prix BuGse 
H ' Modify test f - i 
; 3 0086 | Rodi ty ges or re-reading file header after ENTER : 
; 061 1: v03-042 CDS0005 Christian D 
. Saether 1-Aug- : 
i gi Defer Building of ACLis until efter initial extend : 
: o0 rt: : file is in the primary Nn A nts ai mecca ; 
; 6 0066 1: v03-041 CDS0004 Chri 
stian D. Saether 0-Aug- : 
i 8 O06 1 Reread pevly, created header after ENTER because 7 
: o? 8068 ’ header directory file. thea pete:ne  No 
: «67 0071 1: 403-060 cDS0013 Chri 
; ' stian D. Saether  14-Aug- : 
+ Bore : Modify creation of extension fcb chain, if arn Doe : 
: 70 0074 1: v03-039 LMP0298 ; 
' L. Mark Pilant, 7-Aug- : : 
4 tk : Add the necessary protection checks for aml ne ; 
ee 0077 1! v03-038 ACG0438 An : 

! drew C. Goldstein, -Aug- : : 
: th ' ein ten truncation error; release ony cates ase , 
et 0080 13 serialization lock before starting create ; 
3 0081 1! v03-037 LMP0288 ; 
2 el L. Mark Pilant, 29-Jul-1984 : : 
BR BRT Rat ety Suh teste wate det Mote, ate eet : 
: £0 t'¢4 ' bug introcuded in thPOows. ) Hee B Pr Ter Eryn See 
; 82 0086 1! v03-036 LMPO284 
; ‘ L. Mark Pilant, 26-Jul-1 : : 
8 st $4 : Fix call to ACL_INIT_QUEUE, since it was Ane os ACLAUER ; 
3 0089 1! v03-035 ACG0440 Andrew C. Gold 
. stein, 25-Jul-1984 : : 
By Beet ; : Move setup of default access ACE to after pi nei he ad ag on : 
3 0092 1! V03-034 LMP0275 L. Mark Pilant ; 
: . . 23- -1 3 r 
24 0098 : } Don't try to propagate an ACL if there R22 * ee hagy —_— : 
: 91 0095 1: v03-033 ACG0437 Andr 
! ew C. Goldstein, 13-Jul-1 : : 
4 sia 3 : Corrections to alternate file ownership: ca Nhe Rg ig ; 
gg 0098 11 gee R so that next version propagation works and ; 
95 0099 13 oe at space charging is done correctly. Also add an : 
ae s+ entry for the creator to guarantee access. : 
; (97 101 1! v03-032 cDS0012 Chri 
! stian D. Saether 9-Jun- : 
BRR Qi Gat 3 

: ¥ rim : 
: i” Bibe : } been flushed from the ryt eer Oe ae : 
: 10 01 1: v03-031 CDS0011 Chri 

: stian D. -Apr- : 
: 198 i : Modify access arbitration. pine alana, ’ 
: 105 109 1: v03-030 CDS0010 
: 106 0110 1! Remove call to B i rhyet a os ye ite agree = 

: cation_unlock 
in O12 : call because that elit deen it ane, -2St aanay 
3; 109 73 1: v03-029 CDS0009 Chri 

: stian D. Saeth “Apr- 
; 110 B11z 7 3 Call ALLOCATION_UNLOCK prior to deleting loathe tian 


N 3 
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v04-002 sotai9 4 12:45:26 F11X.BUGSRCJ 


version in supersede Operas tons to eliminate possible 
deadlock condition if the previous version is being 
extended at the same time. 

Also call ALLOCATION_UNLOCK after an ENTER because it 
aay have extended the directory and thus be holding the 
allocation lock, also causing potential deadlock further 
on in a number of ways. 


v03-028 ACG0412 Andrew C. Goldstein, 22-Mar-1984 18:19 
Implement agent access mode support; add access mode to 
check protection call; make attribute propagation to self 
a NOP (when a file is entered as a new version of itself). 


ACG0408 Andrew C. Goldstein, 20-Mar-1984 17:54 
Make APPLY_RVN and DEFAULT_RVN macros; 
Make rest of global storage based. 


v03-026 ACG0405 Andrew C. Goldstein, 16-Mar-1984 15:12 
Fix handling of fite headers in CHANGE_OWNER 


v03-025 cDdS0008 Christian D. Saether 9-Mar-1984 
Remember CURR_LCKINDX from prieery context and set 
it in secendery after OPEN FILE so that copy_info 
has the right lock basis when writing acl's fo the 
primary file's header. 


v03-024 LMP0203 
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v03-027 


WAALALAIP POPUP NONNUNS 2 2 SS So 
WN "OC OONO NEW OOOO Sw 


L. Mark Pilant 29-Feb-1984 10:34 
Add support for F IBSV_PROPAGATE. This allow the preeeees san 
a apply on an enter operation as well as a create 
operation. 


v03-023 LMPO189 


L. Mark Pilant, 66-Feb-1984 13:54 
Add support for FIBSV_DIRACL. T 


: his allows the ACL of a 
directory file parent to be copied directly to the 
children (with the exception of NOPROPAGATE ACEs). 
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35 

36 

3 

3 

3 

4 

4 

4 

4 

4 

4 

4 vO3-022 LMP0188 L. Mark Pilant, 3-Feb-1984 16:08 
. Add support for a classification block. 

5 v03-021 CDS0007 Christian D. Saether 17-Jan-1984 

3 Modify interface to DEFAULT_RVN. 

5 v03-020 CDS0006 Christian D0. Saether 27-Dec-1983 

2 Use BIND_COMMON macro. 

5 vO3-019 LMPO174 L. Mark Pilant, 1=Dec-1983 14:01 
5 Change routine name for default ACE propagation. Also, 

2 Add a call to a routine to do general propagation. 

60 v03-018 CDS0005 Christian D. Saether 14-Sep-1983 

e Mod fy interface to SERIAL_FILE routine. 

88 v03-017 ACG5691¢ Andrew C. Goldstein, 21-Jun-1983 18:25 
rf 3 Use central routine for date management 

66 0 v03-016 LMPO156 L. Mark Pilant, 19-Sep-1983 15:43 
67 1 Files not entered into a directory now get the process 
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default protection. 


VO3-015 LMP0149 L. Mark Pilant, 13-Sep-1983 11:25 
Correct a logic problem that caused problems during the 
protection check of a write attribute operation. 


V03-014 LMP0148 L. Mark Pilant, 31-Aug-1983 13:29 
Make sure propagated attributes make it to the header. 
v03-013 CdS0004 Christian D. Saether 16-May-1983 


Release allocation lock after newly allocated file 
header is locked. 


v03-012 CDS0003 Christian D. Saether 4-May-1983 
Add call to SERIAL_FILE routine to interlock file 
processing. 

v03-011 CDS0002 Christian D. Saether 9-Apr-1983 
Reflect change to ACCESS_LOCK interface. 

v03-010 ACG0323 Andrew C. Goldstein, 25-Mar-1983 15:51 
Simplify backlink handling to track RENAME changes 

v03-009 ACG53759 Andrew C. Goldstein, 24-Mar-1983 15:10 
Update revision date & count & expiration on ENTER 

v0O3-008 LMP0091 L. Mark Pilant, 18-Mar-1983 16:14 


Add a condition handler to the attribute propagation to 
catch non-existant files. Also, copy the entire file name 
when creating a long file named file. 


v03-007 LMP0080 L. Mark Pilant, 14-Feb-1983 16:16 
Add a new routine that is called to propagate the attributes 
from either the previous version of the file or the parent 
directory as necessary. 


v03-006 ACG53050 Andrew C. Goldstein, 31-Jan-1983 13:59 
Remove RVN check from check for dummy file ID 


v03-005 ¢CDS0001 Christian D. Saether 12-Jan-1983 
Call routine to take out file access lock. 


v03-004 LMP0059 L. Mark Pilant, 21-Dec-1982 11:17 
Always create an FCB when accessing a file header. This 
eliminates a lot of special casing in FCB handling. 


vO3-003 LMP0047 L. Mark Pilant 29-Sep-1982 15205 
Put back in the volume protection check deleted by LMP0036. 
v03-002 LMP0036 L. Mark Pilant 5-Aug-1982 13:50 


Shuffle the order that the protection checks are done to 
allow for ACL's. 


v03-001 LMPC016 L. Mark Pilant 25-Mar-1982 13:18 
Remove diddling of the COMPLETE bit in the window segments. 


v02-021 ACG0265 Andrew C. Goldstein, 15-Feb-1982 9:50 
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Fix order of expiration date handling 


v02-020 AcG0258 Andrew C. Goldstein, 26-Jan-1982 16:57 
Fix reference to RVN 1 in expiration date processing 


v02-019 ACG0230 Andrew C. Goldstein, 23-Dec-1981 22:59 
Add expiration date support 


v02-018 ACG0247 Andrew C. Goldstein, 23-Dec-1981 20:44 
Set revision date to creation date 


v02-017 ACG0245 Andrew C. Goldstein, 23-Dec-1981 20:40 
Don’t write back Link if file is a spool file 


v02-016 LMP0003 L. Mark Pilant, 8-Dec-1981 10:20 
Added byte Limit quota check on window creation. 


V02-015 ACG0238 Andrew C. Goldstein, 11-Dec-1981 23:30 
Allow creation of dummy directory entries 


v02-014 ACG0208 Andrew C. Goldstein, 17-Nov-1981 15:16 
Add segmented directory record support 


v02-013 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 
Previous revision history moved to F118.REV 
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LIBRARY ‘SYSS$LIBRARY: 


LIB.L32'; 
REQUIRE ‘SRC$:FCPDEF .832'; 


FORWARD ROUTINE 
CREATE : L_NORM, 
PROPAGATE_ATTR : L~NORM, 
PROPAGATE HANDLER, 
COPY_INFO : L_NORM; 


CREATE function routine 
Propagate file attributes 
condition handler for above 
Copy info from old to new file 
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; $? } § } GLOBAL ROUTINE CREATE : L_NORM = 

: $82 1586 4 i°° 

5 44 60 FUNCTIONAL DESCRIPTION: 

: 269 1 6 1/ This routine pesreets the ~——"' function. It creates a file with the 
3 0 1265 1! attributes requested, enters it in a directory if desired, and 

: f) : oe } } accesses the file if requested. 

: 27 1 66 1 | CALLING SEQUENCE: 

; fe } } CREATE () 

: 27 1 63 1 | INPUT PARAMETERS: 

: ote iss) 1 3 vee: 

: 279 1 es 1} IMPLICIT INPUTS: 

$ 80 1275 1! URRENT_VCB: VCB of volum 

: 3] ! } IO_PACKET: packet of this. 1/0 request 

: sf 1276 1 | OUTPUT PARAMETERS: 

ab) el a. 

; 86 1279 1°! IMPLICIT OUTPUTS 

; 1280 1! PRI FCB: FCB of file if accessed 

; 288 1281 1! CURRENT" WINDOW: window of file if accessed 

: 4 : 86 ! } USER_STATUS: 1/0 status block of user 

: 291 1284 1 | ROUTINE VALUE: 

: 3 1285 1! 1 if successful 

3 1286 1! f error 

3 294 1287 1! 

3 95 1288 1 ! SIDE EFFECTS: ; ; 

‘ $o8 ' 34 : File created, blocks allocated, directory modified, file accessed, etc. 
: Sos 1592 1° 

; 90 1 38 BEGIN 

; 0¢ 1295 2 LITERAL 

: 4 \ 38 ACE_LENGTH = SBYTEOFFSET (ACESL_KEY) + 4; 

: 305 1298 2 LOCAL 

3 4] 1$30 STATUS, ! general return etatus 

: 30 1 i mis ce} leneous constant 

; 308 13 1 FCB CREATED, i flag _indi cating new FCB created 

; 309 1 ¢ PACRET : REF BBLOCK, |! addre ss of 170 | acket 

3 10 1 ABD : REF BBLOCKVECTOR se ch ‘ 
3 11 1 'f ' buffer discrip 

: \¢ 1305 FIB : REF BBLOCK, {ose ident riptors block 

3 «(ST 1 § RESULT_LENGTH, ength of 6, BYTE), string from ENTER 
: 14 1 RESULT : VECTOR CF ILENARE te GTH+6 

: 15 1308 esutt stri ng from ENTER 

3 1¢ 1309 LINK_DID 3 pet Ore _Grapsc teneth ' header back Link 

3: 31 1310 IDENT_AREA : REF B pointer to file header ident area 
3 18 1311 PCB : REF Bee aie i requestor PCB address 

: 19 1312 ARB : REF BBLOCK, i access rights block of caller 
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MAP_AREA : REF BBLOCK, ! f 
1DX7F CB : REF BBLOCK, | F 
FCB : REF BBLOCK, | F 
UCB : REF BBLOCK, | U 
PRIMARY_VCB REF BBLOCK. | V 
HEADER : REF BBLOCK, 
NEW_HEADER : REF BBLOCK, 
ACL-CONTEXT, i dumm 

: BBLOCK ACE LENGTH], 

FUNCTION : BLOCK C1); 

EXTERNAL 


ACP$GB_WRITBACK : BITVECTOR ADDRE 


SCHSGL_PCBVEC REF VECTOR nope 
EXESGL_DYNAMIC _FLAGS : ADDRESS 


! function code path” he 


4 
“Jan-1985 17:42:14 AX-11 Bliss-32 v4 
pie 15:49:14 yetrt4oLiees82 v4 
". — " ores 
nd ex 


= nter for RVN 1 
CB of root volume 
address of file header 


! Address of extension ne 


my ACL geatens peneyore 
' buffer for file creator 


5516 RODE (ABSOLUTE), 
ACP write back cache en 
te, RODE sorurey. LUTE), 


able 
! PCB vector 
G_MOBE <ABSO 


: Sehonte SYSGEN flags 


EXTERNAL LITERAL 
EXESV_CLASS_PROT; : 


BIND_COMMON; 
EXTERNAL ROUTINE 


ACL DELETEACL : ADDRESSING_MODE 
REBLD PRIR FCB OL “NORM NOVALUE, ! 
BUILD-EXT_FCBS =: L_NORM NOVALU . 
ELEASE SERIAL LOCK ORM, | 
ALLOCATION. UNLOC RM i 
ARBITRATE ACCESS : L + TSB ARGS, i 
CONV_ACCLOCK : "L_RORM? ' 
SERIAL FILE : LINORM, i 
FI : LONORM, i 
GET“LOC_ATTR =: L™NORM, i 
: LINORM, i 

SWITCH_VOLUME : L-NORM, i 
SELECT VOLUME L“NORM, i 
CHECK PROTECT L“NORM, i 
GE_QUOTA L“NORM, i 
CREATE-HEADER : L~NORM, i 
SOM : LINORM, ! 
MARK_DIRTY : LTNORM i 
ACL_INIT QUEUE : ADDRESSING _MODE 
ACL“ADDERTRY —: ADDR Eset NG MODE 
ACL“BUILDACL =: ADDRESSING MODE 
READ_HEADER : L_NORM, t 
TER : LINORM, : 
Y_NAME : LINORM, i 
SET_REVISION : L-NORM, i 
REATE_FCB : LZNORM, i 
CREATE-WINDOW : L“NORM, i 
SET_EXPIRE : LINORM, i 
E ACCESS : LONORM, i 
MARKDEL FCB : LTNORM, i 
Unite ATTRIB =: LZNORM. i 
EXTEND : L NORM, ' 


Set if doing non-discretionary checks 


(GENERAL) ,! Fay acls 

: rebuild fcb from h eader 

! rebuild primary feb tres header 

! build extension fcb chain 

release file fyachrentgation lock 
syncaroniae al Seat SOR/EROLL ORES TOR 
establish file acc 

convert/de yeue eceens lock. 
interlock file erogessiag. 

get FIB for operat 

get placement data Tore attribute List 
get placament data 

Switch contest to specified volume 
find volume in volume set for create 


check file protection, 
charge e Med $ fo user s disk quota 
create a le ID and header 


compute header che A. 
mark buffer for write-back 
ERAL ! ate A queue 
(GENERAL), i add e ACL 
LAN L NORA, ! build ACL into file headers 
e 

sta director 
copy fle” name to result string 
set file revision and exp dates 
create an FCB 
create a window 
enable ex iration date recording 
complete the access 
mark FCB for delete 
write attributes 
extend the file 


———- 
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an-1985 17:42:14 AX-11 eit 

Brdsec}QQE IHEG:I$  YMGI BLLaE HZ we, Og242 
' save reentrant context area 

' restore reentrant context area 

— Z te for delete 


ne e file gonplet tely 
Mm’ ADDRESSING. “RO TREENERALS: I Search FCB List 


fete Je J 
Wwr—O 


ee 


WO ONO NES WO OONOUS WhO 


$W_FUNC); 
$SJ 


ZCHANNEL] = 1; 
“DELWINDOW) = 1; 


Set up pointers to interesting control blocks. 


PCB = .SCHSGL_PCBVECC. (10 PACKETCIRPS$L_PIDJ)<0,16>); 
ABD = .BBLOCK™C.PACKETCIRPSL_SVAPTE], RIBSL _DESCRIPTI; 

! pointer to buffer descriptors 
FIB = GET_FIB (.ABD); ! pointer to FIB 


IF .FIBCFIBSV_ aang? 
OR 1BSw°V Osy DELETE GTRU 


SSSSSISSIISSRSSSSS 


® 


GCF IOS) EXTEND) BCNT] GTR ABDSC_ATTRIB 
FUNCTIONCIOSV_ACCESS) 


327 
BN nor -FUNCTIONCIO$V_ACCESS)) 
J 
E 


) 
THEN ERR_EXIT (SS$_BADPARAM) ; 


IF .CURRENT VCBCVCB$SV_NOALLOC) 
THEN ERR_EXTT (SS$_WRITLCK); 


! Do the create if requested. Start by allocating a file number from the 
index file bitmap and reading in the initial file header. 


—- se us ot tS v=os 


WN OOOO VE WN —$O OONOUE WIN O 


IF .FUNCTIONCIOSV_CREATE) 
BEGIN 
! Deal with special cases related to create-if. Release any serialization 
' lock we are note? ng, and force supersede mode to dispose of bad 
! directory entries. 
{fg PACKETCIAPSY_FCODED EQL IO$_ACCESS 


BEGIN 


ee i en en ee ee ee ee ee SE SY 


SSN 


SRP MISOOONA AP WHOS NEA RU ODO VN 


Pot at at ot ot of at ot ot at ot ott ot ee ss 


o 
oo 
nm 


4 
Bsan- 
-Oct-1 
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{rei «PRIM_LCKINDX NEQ 0 


ie SERIAL L LOCK (.PRIM_LCKINDX); 
CRIND 
F1ecf ipéy SUPERSEDE) = 1; 


inally, the protection check if the directory 
ee ause the protect fon check is not done in 
directory file has already been accessed. 
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1 ¢ 
! is 
the 


IF .DIR FCB =e 


ANUP 
AND NOT SCLEANUP.F 
THEN 


0 
LAGSCCLF DIRECTORY) 
~FLAGSCCLF _SPOOLF ILE) 


FCB, 0, 
C_ALf ACCESS], ARMSV_DELETE] 


Sa th ta a Ua a la a-ee e ek t e k ek e k ee 


IF _ .STATUS EQL SS$_NOTALL 
ra FIBCFIBSV_ALT_GRANTED] = 0; 
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ndle any placement specified and find a suitable volume for the 
le in a volume set. 


omer 
~o=z 
— & 


$V eeraer aise 0; ! Since propagation is implied 
CFIB$V_ALLOCAT 
T_LOC_ATTR (.ABD, .FIB); 
te 16 LpC. RVN, LOC _LBN); 
RUN N 
F IGCF IBSV_EXACT) 
nati ania (.LOC_RVN) 
SELECT_VOLUME (.FIB, (IF C 
TH I 
): 
CHECK_PROTE : creates rpF cess. 0, 0, 
I LOCK BCUCBS$i_DEVCH 
OR . CURRENT veBcveesy NOALLOCI 
THEN ERR_EXTT (SS$_WRITLCK); 
HEADER = CREATE_HEADER (FIBCFIBSW_FID)); 


w build an initialized file header in the buffer. 


0); ! che k volume protection 
HAR], DEVSV_S 


ARB = .PACKETCIRPSL_ARB); 
IF .EXESGL_DYNAMIC_FLAGS<EXESV_CLASS_PROT,1> 
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CREAT 
2 
491 4 THEN HEADER[FH2SB_IDOFFSET) = FH2SC_FULL_LENGIH / 2 
49 485 ELSE HEAD RLrHGSe 1b0 FSET = FuSC-t ENT / gi 
49 : HEADERCFH APOFFSET = HEADER Fu? IDOFFSET] + €12$C_LENGTH / 2; 
494 HEADER FHOSB_ACOFFSET) = (SBYTEOFFSET TFMaBU CHECKSUM} 7 : 
495 HEADERLFH SB-RSOFFSET = (SBYTEOFFSET (FHOSW-CHECKSUM)) / 2: 
496 HEADER[FHeSW_SEG NUM] = 0; 
497 HEADERLFHeSW-STROCLEV) = FH2SC_LEVEL2 + 1; 
499 CHSFILL (0, 512 = SBYTEOFFSETCEN2Su EXT FID), HEADERCFH2$W_EXT_F1DJ); 
90 HEADER $.“FILEOWNER) = sARBLARBS uit); 
HEADERCFHeSW_FILEPROT)] = .PCBLPCBSL_DEF PROT); 
F FUNCTIONCIOSV DELETE 
THEN HEADERCFH2SV-MARKDEL) = 1; 
F_.CLEANUP_FLAGSCCLF_SPOOLF ILE) 


I 
THEN HEADERTFH2$V_SPOOL) = 1; 
SASSUME (ARBSS_CLASS EQL FH2$S_CLASS_PROT); 


IF_.EXESGL_DYNAMIC_FLAGS<EXESV_CLASS_PROT,1> 
THEN CHSMOVE (ARBSS_CLASS, ARBCARBSR-CLASSJ, HEADERCFH2$R_CLASS_PROT)); 


> a a — _ 


NEW FID = 0; ! new file ID is no longer unrecorded 
CLEANUP_FLAGSCCLF_DELFILE] = 1; 
CLEANUP_FLAGSLCLF_HDRNOTCHG) = 1; 
FILE HEADER = .HEADER; ! record header address for cleanup 
CHECRSUM (. HEADER); 
' At this point build the necessary FCB, even if the file is not accessed. 
This is necessary to allow the ACL to be built. 


FCB = KERNEL_CALL (CREATE_FCB, .HEADER); 
PRIMARY_FCB = .FCB; 
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! If a non-zero directory ID is supplied, enter the file in the directory. 
i Otherwise, just copy down the name string (if any) into the result string. 
Note that directory operations are also nooped on spool files operations. 


VW — 


HF pL RAMP _FLAGSCCLE DIRECTORY) AND NOT .CLEANUP_FLAGSCCLF_SPOOLF ILE) 


IN 
CHSFILL (0, FIDSC_LENGTH, OLD_VERSION FID); 
ENTER (.ABD, .FIB> RESULT_LENGTH, RESOLT); 


ways attempt to release the allocation lock here. We will be holding 
if the directory was extended. It might make pore sense to release 
in the directory extension, but the call is relatively cheap. 


ALLOCATION_UNLOCK (); 


3 ! ENTER may have flushed the new buffer from the cache if either che 
0 ! directory file header(s) and quota file header(s) were accessed and 
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CHE, fegersBHr EeeGeht  MGNSBGAMReMeCSls2, «Pe 
48 Fete were multiple headers. Make sure FILE_HEADER is what we think 
' 
IF gFUNCTION CIO$SV_CREATEJ 
FILE HEADER = READ_HEADER (0, .FCB); 
if gFUNCTIONCIOSV_ CREATE) OR .F IBLF IBSV_PROPAGATE) 
BEGIN 
If the CREATE modifier was not specified, then this must be a directory 


entry operation. In which case it is pocopeery to actually access the 
file being entered, so that an FCB will exist for the propagation to 
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rey occur. 

E Moy -FUNCTIONCIOSV_CREATE) 
BEGIN 


Switch context to the volume of the specified RVN. 


SWITCH VOLUME (.FIBCFIBSW_FID_RVN)); 
Synchronize further processing on this file. 


PRIM_LCKINDX = SERIAL_FILE (FIB CFIBSW_FIDI); 


! Find the FCB of the file, if one exists. then read the file 
i header. If there is no FCB, create one. 


FCB = SEARCH_FCB (FIBCFIB$W_FIDI); 
HEADER = READ_HEADER (FIBCFIBSW_FID), .FCB); 
FCB_CREATED ="0; 


IF .FCB EQL 0 
THEN 
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89 BEGIN 
90 FCB_CREATED = 1; 
4 AS = KERNEL_CALL (CREATE_FCB, .HEADER); 
95 PRIMARY_FCB = .FCB; ! record FCB for external use 
95 ! If the file is multi-header, read the extension headers and create 
38 ; extension FCB's as necessary. Finally read back the primary header. 
98 91 5 
3 IF .FCB_CREATED 

$1 94 BUILD_EXT_FCBS (HEADER) 
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b-Jan- 198s 15regide YP TIX.BUGSREICREATE 
BEGIN 
REBLD_PRIM_FCB (.PRIMARY_FCB, .HEADER); 
BUILDLEXT FCBS (HEADER); 


: Wipe out any acls that may have existed, because they are going 
to be propagated. 


i eee CFCB CFCBSR_ORB], ORB$V_ACL_QUEUE] 
ACL_DELETEACY (FCB CFCBSL_ACLFLJ, 0); 
END; 
! Now propagate the file attributes to the file just entered. 


STATUS = PROPAGATE_ATTR (.FIB); 
IF NOT .STATUS THEN ERR_EXIT (.STATUS); 
HEADER = .FILE_HMEADER; 
HEADER HGS. _FILEQWNER] = ,PRIMARY_FCBCFCBSL F ILEOWNER]; 
HEADERCFHOSW-FILEPROT) = .PRIMARY_FCBLFCBSW_FILEPROT); 
CHECKSUM (HEADER); 
MARK_DIRTY (HEADER); 
END; 

END 
ELSE 


BEGIN 
KERNEL_CALL (COPY_NAME, sABD) : 

RESULT LENGTH = INU (ABD ABDSC_NAME, ABDSW_COUNT], F12$S_FILENAME*F 12$S_F ILENAMEXT); 
d -ABDCABDSC_NAME, ABDSW_TEXT] + ABDCABDSC_NAME, ABDSW_TEXT] + 1, RESULT); 


! Read the file header, regardless of the operation. Do a protection check 
! on the directory pointed to by the present back Link. If it is not valid, 
! or if write access is allowed, then overwrite the back Link with the new 
! directory ID. Copy the file string into the header ident area. Then write 
attributes as specified. 
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FID_NUM] NEG 65535 
FID-SEQ) NEQ 655 
FID"NMX) NEQ 


URRENT 


Y VCB = sf vce: 
IMARY_VCBCVCBSW_RVN) NEQ 0 


TOR CURRENT RVICRVTSL_UCBLSTI, 03; 


L 
XIT (SS$_DEVNOTMOUNT) ; 
B = .UCBCUCBSL_VvCB); 


IF .PRIM_LCKINDX EQL 0 
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pagent} 2 rl fey: F11X.BUGSRCICREATE .832;1 ” (2) 
THEN 3 
PRIM_LCKINDX = SERIJAL_FILE (FIB CFIBSW_FIDI); : 
HEADER = READ_HEADER (FIBCFIB$W £12. 0); : 
IDENT_AREA = HEADER + .HEADERCFH2SB_IDOFFSETI#2; ; 
CHSMOVE Tier LENGTH, HEADEREFUZSU BACKLINK), PREV_LINK); : 
IF .PREV_LINKCFIDSW_NUM] EQL : 
AND |-PREG_LINKCF 1D$0_RVN) EQL 0 : 
i BEGIN ; 
4 IF NOT .CLEANUP_FLAGSCCLF_SPOOLFILE) é 
4 THEN 
: CHSMOVE (FIDSC_ LENGTH, FIBCFIS$W_DIDJ, HEADERCFH2$W_BACKLINK)); 
H DEFAULT_RVN (HEADERCFH2$W_BK_FIORVNJ,.CURRENT_RVN); 
CLEANUP_FLAGSCCLF_FIXLIMK] ="1; 
2 END; 
4 CHSMOVE ress FILENAME IDENT AREACFI2$T_ FILENAME], PREV_INAME); 
4 CHSMOVE (FI2SS_FILENAMEXT, IDERT_AREACFI ST_FILENAMEXTI, 
4 PREV_ ELF I2SS_FILENAME)); 
4 CHSCOPY BE SY T_LENGTH, RESULT, ° ° A $S_FILE , [DENT_AREALF 12$T_F ILENAME); 
4 IF .HEADERCFH MPOFF SET = ,HEADERCFH2$B8 TDOFFSET 
? SeOU (SBYTEOFFSET (FI2ST_FILENAMEXT) + FI2$S_FILENAMEXT) / 2 
2 BEGIN 
K = MAX (.RESULT_LENGTH = FI2$S EILENAA « 0); 
5 CHSCOPY (.K RESOLTCF 12$S_F ILENAME e.. 
; ue F18$S_FILENAMEXT, IDENT_AREACF12$T_FILENAMEXT)); 
Pi @ 
2 Update revision count and date and expiration date as appropriate. 
¢: 
4 SET_REVISION (.HEADER, 3); 
END; 
: Set up file dates; then write the attributes. 
IF .FUNCTIONCIO$SV_CREATE) 
THEN 
4 BEGIN 
4 IDENT _AREACFI2$W_REVISION) = 0; 
‘ CHSMOVE (FI2SS_CREDATE, IDENT_AREACF12$Q_REVDATEJ, IDENT_AREALF 12$0_CREDATE)); 
4 IF .PACKETCIRPSW_BCNT) GTR ABDSC_ATTRIB 
4 THEN 
BEGIN 
WRITE_ATTRIB (. HEADER, .ABD, 0); 
HEADER = .FILE_HEALER; 
2 END; 
4 ! If tne file is now owned by a UIC other than the creator, add an ACL 
4! entry prenting owner's access to the creator. Then write the modified 
4 ! ACL into the header. 


4 
CREAT -Jan-1985 17:42:14 AX-11 Bliss-32 v4 
von-082 b-san-1985 1oregise YP TIX -BUGSREICREST 


; 719 1712 4 

; 720 1318 4 IF ,HEADERCFH2SL_FILEOWNER] NEQ .ARBCARBSL_UIC) 

: 721 714 4 D NOT .CLEANUP—FLAGSCCLF _SYSPRVJ 

3s 7 ¢ 1715 4 EN 

s 7 1718 BEGIN 

: 726 171 ACL_INIT QUEUE (PRIMARY_F CBCFCBSR_ORB)); 

3: 725 1718 ACL-CONTEXT = 0; 

3; 7 § 171 ACELACESB_SIZEJ = ACE_LENGTH; 

eB. 1720 ACELACESB_TYPE] = acest KEYIO; 

: 728 1721 ACECLACESW-FLAGS]_= ACES NOPROPAGATE; 

: 729 17 § ACECACESL_ACCESS] = ACESA cone OR 

; 730 17 (, (HEADERCFH2$W_FILEPROTJ])<4,4> XOR %B'1111"); 
> 731 1726 CECACESL_KEY] = ~ARGEARBSL VIC); 

3; 7¢ ¢ 1725 ACL_ADDENTRY (PRIMARY _FCBCFCBSL_ACLFLJ, ACL_CONTEXT, ACE_LENGTH, ACE); 
wae 17 $ ATUS = ACL_BUILDACL™(.PRIMARY-FCB); 

:z 17 IF NOT .STATOS THEN ERR_EXIT (. STATUS); 

: OR 1959 ' 

: 737 1730 4 CHARGE QUOTA (.HEADERCFH2$L FR SOMESS, 1, BITLIST (QUOTA_CHECK, QUOTA_CHARGE)); 
; Te Ve 1 ? CLEANUP_FLAGSCCLF __HDRNOTCHGJ = 0; 

; 740 1333 4 ! If access is requested, access the file. 

3: 741 1734 4! 

7% 1735 4 

: 7% 1736 4 IF .FUNCTIONCIOS$V_ACCESS} 

: 746 1737 4 THEN 

3 «6745 1738 5 BEGIN 

; 746 1739 5 

3 SH 1oe9 : ie NOT ARBITRATE_ACCESS (.FIB CFIBSL_ACCTLJ, .FCB) 

3 44 tg 2 BUG_CHECK (XQPERR, ‘how can we fail to access a new file?'); 
3s 751 1744 «(5 CURRENT WINDOW = CREATE WINDOW (.F IBCFIBSL_ACCTLI 

: a 1745 3 -FIGCFIB$B_WSIZEJ, .HEADER, .PACKETCIRPSL_PIDS, .FCB); 
: 754 1747 5 IF .CURRENT_WINDOW EQL 0 

3; 755 1748 5 THEN 

. 1749 6 BEGIN 

: 75 1750 6 ; 

; 758 1751 6 ! This will dequeue the access lock we may have taken above (if a cluster 
; 759 1736 6 ! device) because the refcnt will be zero. 

: 760 1753 6! 

3: 761 1754 6 

; 76 Ha 6 CONV_ACCLOCK (0, .FCB); 

3; 17 $ ERR_EXIT (SS$_EXBYTLM); 

: 7646 175 ND; 

; 765 1728 

: 766 17 MAKE_ACCESS (.FCB, .CURRENT_WINDOW, .ABD); 

: 767 1760 : 

; 768 1761 IF .FUNCTIONCIO$V_DELETE) 

; 769 1706 : THEN KERNEL_CALL TMARKDEL_FCB, .FCB); 

; 770 176 IF .(PRIMARY_VCBCVCBSQ_RETAINMAX]+4) NEQ 0 

3; 771 1764 § THEN KERNEL_CALL (SET_EXPIRE); 

: oP 1765 4 END; 

ae de 1706 4 ; 

; 7746 1767 4 ! Now extend the file if requested. 

: 775 1768 4! 
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-FIBCFIBSV_EXTEND] THEN EXTEND (.FIB, .HEADER); 
DER = .FILE HEADER; 
NEL_CALL (UPDATE_FCB, .HEADER): 


IF 
HEA 
KER 
END 
CHECKSUM (.HEADER); 

MARK_DIRTY (. HEADER); 


IF (.FUNCTIONCIOSV CREATE) OR .FIBCFIBSV_PROPAGATE)) 
AND .PRIMARY_F(B NEQ 0 


HEN 
Jf _BBLOCKLPRIAARY _FCOLFCOSR_ORBI. ORBSV_ACL_QUEUE] 


BEGIN 
STATUS = ACL BUILDACL (.PRIMARY_FC 
ww ~STATOS THEN ERR_EXIT (.STA 


Perform the remap operation if necessary to account for any initial extend. 


IF .FUNCTIONCIOSV_ACCESS] AND .FIBCFIBSV_EXTEND] 
THEN IF .CURRENT_QINDOWCWCBSV_CATHEDRAL J 
Tens REMAP_FILE 7); 


: If this is a supersede operation, delete the file that was removed during 
1 the enter operation above. This must be done last since we cannot undo 
: @ delete in cleaning up from a subsequent error. We first copy the primary 
context into the context save area since this is a secondary operation. 


IF .CLEANUP_FLAGSCCLF _SUPERSEDE] 
THEN 


CHSCOPY (FIDSC_LENGTH, SUPER FID, 0, 
aot LENGTH - S$BYTEOFFSET (FIBSW_FID), SECOND_F IBLF IBSW_FID)); 
SECOND _F IBLF IBSB_AGENT MODE) = .FIBCFIBSB_AGENT_MODE); 
K DELETE (SECOND_FIB, 1, 0, 0); 
RESTORE _CONTEXT (); 
END; 
RETURN 1; 
END; ! end of routine CREATE 
TITLE nae! 
-IDENT \v04-002\ 
-EXTRN ACPS$GB_WRITBACK 
-EXTRN SCHS$GL PCBVEC 
-EXTRN EXESV_CLASS_PRO 
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MARK FI 
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CREAT b-san-19 § 17:4 AX-11 Bliss-32 V4.0-742 Page 18 
vient -0ct-1984 12: 48 3 F11X.BUGSR CICREA TE.B32;1 oF 02) 
57 DD OO12F 14$:  PUSHL ie ; ; 
00006 ¢F 2 FB 001 CALLS # pSELECT VOLUME ; : 
t 7C 00136 15$ CLRO = + 1671 ; 
7E 7D 001 MOva ’ 5?) sp) F ; 
00006 cf 4 FB 001 CALLS #4. CHECK_PROTECT : ; 
0 94 AA DO 0014 MOVL rye Stn t 1472 3 
09 38 = AO 01 £0 00144 SBS 1, 59(RO), 16$ : ; 
50 98 AA DO o149 MOVL =164(8A ASE) RO + 1473 ; 
05 0B AO 4 £1 0014 BBC 11(RO), 17% : ; 
025c oF if 16$: CHAU 7666 + 1476 : 
04 A? 9F 00157 17%:  PUSHAB 4¢F 1) + 1476 ; 
00006 ct 1 FB 15A CALLS a, CREATE_HEADER : : 
8 0 pO 0015F MOVL DER” : ; 
50 04 AE 00000058 &8F C1 00162 ADDL3 8, PACKET, RO + 1481 : 
iC AE 60 D0 00168 MOVL (ROS, ARB : ; 
05 000000006 9F 000000006 8F €E1 OOT6F BBC ppm @#EXESGL_DYNAMIC_FLAGS, -: 1483 : 
68 36 90 00178 MOVB #54, (HEADER) + 1484 : 
03 11 0017E BRB 9s : ; 
68 <8 90 9180 18$:  MOVB #40, (HEADER) + 1485 ; 
01 «AB 68 C 81 0183 19$:  ADDB3 #60. (HEADER) 1 (HEADER) > 1486 : 
02 AB FFFF BF 3C 001 MOVZWL #63535 EADER R) + 1487 : 
06 AB 0201 =F 80 018 MOVW #513, 6 ay + 1490 ; 
O1F2 BF 00 6E - 09 C 0194 MOVCS #0, (SP), a0. R498. 14 (HEADER) + 1492 ; 
50 1c OA 38 ¢1 0019D ADDL3 ene + 1493 ; 
3C COA 60 DO 001A2 MOVL toes. : ; 
40 AB 0114 CB 80 001A6 MOVW 276 5060 MEA PEEADER) + 1494 : 
05 01 AE GOTAC BLBC = FUNCTION+1 + 1496 ; 
35 AB 80 8F : 9180 BISB2 #128, 53(HEADER) : 1497 ; 
SA 0185 208 TSTB = (BASE) : 1499 ; 
04 18 00187 BGEQ 21$ : ; 
35 AB 10 88 00189 BISB2 #16, S3(HEADER) > 1500 ; 
OA 000000006 9F 000000006 8F £1 001BD 21$: BC gages @#EXESGL_DYNAMIC_FLAGS, =: 1504 ; 
58 1 AE 0c cI 001¢9 ADDL3) @ 2. ARB, R11 : 1505 : 
58 AB 14 28 OICE movcs # (Rif), 88 (HEADER) : : 
AB AA 04 00103 228: CLRL - BiB SE) : 1507 ; 
02 AA 0820 BF A8 001Dc BISW2 #208 (BASE) : 1509 : 
18 «BE ; DO 001D VL HEADER, @24(SP) : 1510 ; 
DD OO1E PUSHL HEADER > 1511 : 
00006 CF 1 FB OO1E CALLS CHECKSUM ; 3 
8 DD IE PUSHL A : 1517 : 
00006 CF 1 FB OO1E9 CALLS #1, CREATE_FCB F ; 
58 0 OD ie MOVL 3 r 
16 BE B 00 OO1F MOVL FCB, a20(SP) : 1518 ; 
03 6A 06 Ife 3$: BBS #6, (BASE), 25$ : 1526 : 
00E 1°9 24%: BRW a : : 
6A 3 1FC 205$:  TSTB (BASE) : : 
F9 «1 1F BLSS 4$ 3 3 
06 00 6E sane 00 2¢ MOVCS #0, (SP), #0, #6, 332(BASE) + 1529 : 
44 AE OF PUSHAB RESULT : 1530 : 
2c AE F PUSHAB RESULT_LENGTH : : 
7E ; D MOVa » =tSP) : : 
00006 CF 4 FB CALLS #4, ENTER : : 
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#1, SERIAL_FILE 
RO, (R9) 
4(F 1B) 
#1, SEARCH_FCB 
RO, FCB 


FB) 
Hy READ_HEADER 
RO, HEADER 
FCB CREATED 
2 : 
#1, FCB_CREATED 
, CREATE_FCB 
RO 
FCB, 82 cREAT > 298 
35cFe ATER 
ae(sP) 
io REBLD _PRIM_FCB 
A EXT 3h ges 
FCB), 
it ACE  DELETEACL 
, PROPAGATE _ATIR 
RO 
TATU, $ 
4 ADER 
*60( HEADER) 
‘ ? 
* 64 (HEADER) 
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5 
CREAT ~Jan-1985 17:42: AX-11 Bliss-32 v6 
‘O82 b-Jan-1945 15:48: ATK BOSSREICREATE Boos Page $f 


Wwe nw 


ws HS 


00006 CF 1 Fe D CALLS MARK_DIRTY : 
9 1 E BRB § + 1526 
$ DD OO2E3 33$: — PUSHL D + 1626 
00006 CF FB E CALLS #1, COPY_NAME : 
0 12 a6 f EA MOVZWL 1 (ABD). RO + 1627 
0056 «BF : E CMP R #86 : 
4 18 OOF BLEQU § : 
50 56 BF OOM O00F MOVZBL #86, RO : 
28 AF 0 DO 002F9 34$: MOVL RO, RESULT_LENGTH : 
2 10 As E O02FD MOV 16{ABD), RT + 1629 
0 6 1 MOVZWL (R1), R : 
44 AE 01 A140 8 A MOVC3 RESULT LENGTH 1(R1)CROJ, RESULT : 1628 
FFFF BF 4 A O¢ 35$ cney 4(F 1B); #65535 + 1639 
FFFF = SF 06 A ef 14 CMPW (FIB), #65535 + 1640 
OA : O31A BNEQ 6$ : 
FF OF 09 a7 91 0031C CMPB (FIB), #255 + 1641 
93 12 1 BNEQ $s : 
0230 31 3 BRW 5 : 
20 AE 98 AA DO 6 368:  MOVL  =-104(BASE), PRIMARY_VCB + 1644 
50 20 AE O£ C1 00328 ADDL3 #14, PRIMARY_VCB, RO + 1645 
6 a 0 9 TSTW (ROS : 
14 0 BEQL 38$ : 
50 9¢ AA DO 00 MOVL  =100(BASE), RO + 1648 
51 44 AO D 0 MOVL 68(RO), ucB ; 
5 1 C BNEQ $ + 1649 
007¢ 8F BF 00 C #1246 + 1650 
04 0034 RET 3 
20 AE 34 «OAT 00 0 4 378: MOV 52(UCB), PRIMARY_VCB : 1651 
69 D 48 38$: ‘TSTL (RO) : 1654 
OB 12 0034A BNEQ 39$ : 
04 A? OF 0034C PUSHAB 4(FIB) + 1656 
00006 CF 1 FB O34F CALLS #1, SERIAL_FILE : 
69 0 D 0 4 MOVL RO, (RO) : 
E D4 739$: cCLRL -(§P) : 1658 
04 A? OF 9 PUSHAB 4(F IB) : 
00006 cf Q FB 5c CALLS a, READ_HEADER ; 
a 1 MOVL RO. HEADER ; 
50 68 9A MOVZBL (HEADER) Ro + 1659 
59 684 0367 MOVAW (HEADER) ERO IDENT _AREA ; 
10 BE 42 AB 06 mOVC3 H) (HEADER), a@16TSP) + 1661 
10 BF a ee (SP) > 1662 
BNEQ 3 
50 10 AE 4 C ADDL3 #4, 16(SP), RO + 1663 
0 & TSTw (RO) ; 
F BNEQ 44 : 
A 9 TSTB = (BASE) + 1666 
& BLSS 418 : 
42 ag OA A? 2 MOVES «#6, OCF 1B). 64 HEADER) + 1669 
AO AA 46 =O 08 : CMP2V #8, 7O(HEADER), -96(BASE) : 1670 
BNEQ 86-4 0§ : 
46 A CLRB © 70( HEADER) : 
03 AA 4 F , 40$:  ®BISB2 #64, 3(BASE) > 1671 
OC BE 69 4 41$:  MOVC3 #20. (IDENT_AREA), a@12(SP) > 1674 
E 9 A 4 } ADDLS #20, 12(SP)> =(SP > 1676 
9 6 A 0043 8F move ~ S4(IDENT_AREA), @(SP)+ : 
14 2 44 SOA E 2c MOVCS RESULT_LENGTH; RESULT, #32, #20, - 3 1677 


vos 002 b-sonct9es ei yam carte ti tars etree Page $) vt 


(IDENT area) 


6 8 3 
0 01 A 9A B MOVZBL (HEADER), + 1678 
1 A 0038 MOV gL (HEADER) , “ale : 
0 1 Ce BA SUBL2 RI, : 
C 9 ; B CMPL RO, #60 + 1679 
1 C BLSSU 4 ; : 
50 28 AE 14 ( ¢ SUBL3 #20, RESULT_LENGTH, RO + 1682 
C BGEQ 42 : 
ps 9 CLRL. sR : 
0042 8F 20 58 OA —. C ¢ 428 MOVCS K, RESULT+20, #32, #66, 54(IDENT_AREA) + 1684 
9 DO 003D5 438:  PUSHL #3 + 1690 
DD 003D PUSHL HEADER : 
00006 CF 0 FB 09 CALLS #2, SET_REVISION ; 
: 9 DE 44$ TSTB FUNCTION + 1696 
19 003€ BLSS 45$ : 
O11F + 31 OO3E BRW 53$ ; 
14 Ad 84 E5 45$ CLRW 2 CIDENT AREA) + 1699 
16 Ad 1€ a9 9 8 003E8 ROVCS # (IDENT_AREA), 22(IDENT_AREA) > 1700 
50 06 =A C1 EE ADDL3 #50, PACKET, ~RO + 1702 
0 B1 OO03F CMPW Ss (ROS, : 
F 1B Fe BLEQU 46$ : 
E D4 003F CLRL = = ( SP) : 1705 
56 DD OO3FA PUSHL ABD ; 
58 DD OO03FC PUSHL HEADE ; 
00006 CF 0 FB F CALLS CRITE ATTRIB ; 
a 18 : D 0 MOVL ahh) READER ; 1706 
50 1 OA C1 00407 468 ADDL3 RO : 171 
& 3c.C«A D| 0 CMPL Hiei (RO) : 
6 1 BEQL $ : 
SF or AA E 1 BLBS BASE) : 1714 
7E 146 BE 00000058 BF ¢ 16 ADDL3 438, 526($h). outst : 1717 
000000006 00 1 FB OO41F CALLS acl oJ EUE : 
3C AE D4 6 CLRL ris CONT ext : 1718 
30 AE 0800010C 8F DO 9 MOVL %217996, ACE : 1719 
50 40 a8 94 rf EF } Extzy 8 gM Be HEADER) , RO : 1723 
34 AE 26 £5 eis $ ne: a Aces : 1722 
50 1¢ =A 38 C1 F ADDL : 1726 
38 OA 60 BO 44 MOVL (R05, anf : 
30 AE OF 00448 PUSHAB : 1725 
0c pp 4B PUSHL ' ; 
34 AE 9F 0044 PUSHAB tty He ; 
7E 088 BF 00000080 a C1 3 ADDL3 #128, a3 (sp) -(SP) ; 
000000006 FB CALLS MS: CLA ENTRY : 
146 BE DD PUSHL a3 : 1726 
000000006 00 1 F CALLS . wit BUILDACL F 
24 ar 0 »D A MOVL RO STATU ; 
0 24 =A 5 BLBS sa 47$ : 1727 
00 BR $ 3 
DD 00475 478 PUSHL : 1730 
1 0D 0047 PUSHL : 
3c = ABs«éD «00479 PUSHL 69 ADER) : 
00996 CF FB 0047C CALL ae QUOTA : 
63 ie 6 Ft 8 Bat UNCTION, 518 18 
$f B DO 3 MOVL 1 Rt : 1740 


| CREAT , f-san-1985 12368: 


42:14 AX-11 Bliss-32 Vv4.0-742 
v04= -0ct-1984 12:4 ey: F11X.BUGSRCICREATE.B32;1 
50 7 3 48C MOVL  (FIB), RO : 
00 06 48F BSBW ARBITRATE_ACCESS : 
04 EB 004 BLBS RO, 48$ : 
Fer 4 BUGW + 1742 
0060* 004 -WORD <BUGS_XQPERR! 4> : 
: 38 Dp 499 48$:  PUSHL FC + 1745 
52 08 AE C1 004 ADDLS #12, PACKET, R2 : 
$ DD 004A PUSHL (R25 : 
pp 4A HEADER : 
7E 03 A 4 CVTBL 3(FIB), -(SP) : 
7 DOD 004a8 PUSHL  (FIB) + 1744 
00906 CF 3 FB OO4AA CALLS #5, CREATE WINDOW : 
C AA D0 OO4AF MOVL RO 2 (BASE) : 
E 12 0048 EO }60s «498 + 1747 
B DD 0048 PUSHL FCB : 1755 
: D4 0048 CLRL. = (SP) : 
00006 CF 0 FB 00489 CALLS #2 CONV_ACCLOCK : 
2014 = BF BF 48 ¢ #167 : 1756 
4 004C RET : 
56 DD 004C3 49%:  PUSHL ABD + 1759 
0c AA DD 004C¢ PUSHL 12(BASE) ; 
5B DD 004¢8 PUSHL : 
00006 CF 03 FB OO4CA CALLS #3, MAKE ACCESS ; 
07 01 AE €E9 OO4CF BLBC FUNCTION?1, 50$ : 1761 
5B DD 00403 PUSHL + 1762 
00006 CF 1 FB 00405 CALLS #1, MARKDEL_FCB ; 
50 20 AE 00000078 af cl O4DA 50S: ADDL #120, PRIMARY_VCB, RO + 1763 
95 f Ree BEQL «6-451 ; 
00006 CF 0 FB 04E7 CALLS #0, SET_EXPIRE > 1764 
16 A? 95 0046EC 51$:  TSTB é (F 1B) + 1770 
08 18 OO4Er BGEQ $ ; 
7E 7D 004F1 MOV FIB, =(SP) ; 
00006 ct 02 FB O4Fs CALLS #2, EXTEND ; 
18 ef D FO 52$: VL  @24(SP), HEADER : 1771 
DD 004FD PUSHL HEADE : 1772 
00006 CF oi FB OO4FF CALLS #1, UPDATE_FCB ; 
8 DD 53$:  PUSHL whcA $ 1775 
00006 CF 01 FB CALLS #1, CHECKSUM : 
8 DD PUSHL 4H : 1776 
00006 CF 01 FB CALLS #1, MARK_DIRTY ; 
9 TSTB FUNCTION : 1778 
24 38 AT bY Bbate She #3” S6C(FIB). 56S : 
14 BE OD 1B 54$: TSTL (SP) : : 177° 
"(UY If BEQ! F 
50 14 BE D MOVL @ ($8) RO : 1781 
16 63 AO i € 4 (RO), 56$ ; 
14 ; DD SHL a0¢sP) : 1784 
000000906 00 F CALLS #1, ACL_BUILDACL : 
4 AE 0 D L RO, STATUS : 
04 34 AE E BLBS STATUS, 56$ : 1785 
4 AE BF 558: CHAU STATUS : 
13 6 0 56$: BBC #6, FUNCTION, 57$ : 1791 
16 =A TSTB é (F 1B) : 
OE 4 BGEQ 3 ; 


CREAT -Jan-1985 17:42:14 AX-11 Bliss-32 V4.0-742 
vor 2 eet 15:89:38 F11X.BUGSRCICREATE.B32;1 
AA 4 v 12(BASE), RO 
a a A 
31 A eT 57%: 6BC a5. (BASET bf 
99 G CF B A CALLS #0, ALLOCATION UNLOCK 
TS Bee, GR apy Coggem 
3C i O1FE CA Se i movcS #6, 13cBASES, #0, #60, (R6) 
A 1 0057 ADDL3 #46, B(SP), RO 
ce - 6 2€ 45 $0 76 v6 46(F1B), (RO) 
7 C 0057A CLRQ ss =( SP) 
01 oD 0057¢ PUSHL 
14 AE DD 0057E PUSHL  20(SP) 
00006 CF 4 FB 00581 CALLS #4, MARK_DELETE 
00006 fF 09 4) 05 CALLS 40, RESTORE CONTEXT 
0 1 00 00588 58S: MOVL #1. R 
04 0058 RET 


; Routine Size: 1423 bytes, Routine Base: S$CODE$S + 0000 


oO 
a 
taal 
> 
— 


=jan-1985 1 AX-11 Bliss-32 v4.0-742 : é 
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~ 


ROUTINE PROPAGATE_ATTR (FIB) : L_NORM = 


‘ee 
' 


i FUNCTIONAL DESCRIPTION: 


This routine is cat ies to propagate the a attributes from one 
file to another. Ss may be from one version of a file to another 
version of the file (either higher or lower) or a, the parent 
directory to Fre yen created file. The following attributes are 
curr asic cop 


ile 
Qf File Keeess veontrol List (ACL) 
File protection (With some twiddling) 


st 
—> + 


Wer OONAUNE WOO 


CALLING SEQUENCE: 
PROPAGATE _ATTR (ARG1) 


INPUT PARAMETERS: 
ARG1: address of the supplied FIB 


IMPLICIT INPUTS: 
St wy! FCB: address of the new file's °o 
DIR_FCB? address of the directory file's FCB 
OLD ~VERSION_ FID: FID of the old cereten of the file 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUT It VALUE : 
if success 
error code otherwise 


SIDE errecrss 
The attributes in the file header of the new file are modified 
according to the attribute of the old version or parent directory. 


PAPA - 
[SSNS AE HOO NOP Ut OO OA NO OO 


SOSee? 
WPM 


VEN OO ONO UNE WO OBNO UPI O 


BEGIN 
0 MAP 
a FB : REF BBLOCK; ! Address of the FIB 
i LOCAL 
74 STATUS, ' Routine exit status 
75 WINDOW : REF BBLOCK, ' Address of created window 
6 FILE_FCB : REF BBLOCK, ' §CB for news created file 
z FCB : REF BBLOCK; ' Address of FCB from window 
8 i” BIND_COMMON; 


a ee a a a ee a a ll ll ll lt el el el eel ll al el lt ll lh elt lt el lt lh lt ll cl lt lt lt ll lt cel 
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EXTERNAL ROUTINE 
READ_HEADER : L_NORM, 


read file header 
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5 
= Jan-1985 17:42:14  VAX=11 BLiss-32 v6.0-76 
b-san-1985 1b:e8ide  HANTAT BtL8e528.Nt25 052, Page $3 


SAVE CONTEXT : L_NORM, ! Save reentrant context area 
RESTORE powrens : LLNORM, : Restore reentrant context area 
OPEN Fl : LLNORM, ! Open a file 

CLOSE_FILE : LINORM, ' Close a file 

CHECK PROTECT =: L_NORM; ! Perform a protection check 


ENABLE PROPAGATE HANDLER; 


: What we do depends on whether there is an old version present. 

! If it exists, we mg | attributes from it. If not, we copy attributes 

! from the oirgctery, f the old version is the same as the file being 

! entered, we do nothing, because re net effect would be a NOP anyway, 
and we can’t cpen the same file in both promary and secondary context. 


_LENGTH, OLD_VERSION FID 
LENGTH, PRIMARY _FCBLFCB$W_F ID) 


eat aa ttt NEQ 0 
ON_FIDCFIDSB_NMX] NEQ 0 


GIN 
LOCAL SAVCURRINDX; 
PILETFCB S seit -p ears? 1s 4 tite Fee ede 
aa® -f CB; ! Save create 
SAV ORRINDX = .CURRTLCKINDX; v e address 


x 
wl = OPEN Five (OLD_VERSION_FID, 2); 
IF WINDOW NEG 


IF CHSEQL Ci 
THEN RETURN 1 
I 
I 


IF .OLD_VERS 
OR .OLD_VERS 
THEN 


GIN 
FCB = .WINDOWCWCBSL_FCB); 
IF CHECK_PROTECT (RDBATT_ACCESS, 0, .PRIMARY_FCB, 
we MAXU T.10_PACKETCIRPSV_MODEJ, .F IBLF 1BS$B_AGENT_MODEJ)) 


N 
BEGIN 


Restore the current lock index we had from primary context. 
COPY_INFO may need to read the primary file's headers. 
Also set the HDRNOTCHG flag to avoid gling quotes when 
file owner is different from process uic. 


CURR_LCKINDX = .SAVCURRINDX: 
CLEARUP_FLAGS CCLF_HDRNOTCHG) = 1; 
STATUS = KERNEL CACL (COPY_INFO, .FCB, .FILE_FCB, .F1B, 0); 
CLOSE FILE (.WIRDOW); 
RESTORE CONTEXT (); 
READ HEADER (CURRENT_FIBCFIB$W_FID], .PRIMARY_FCB); 
RETURN .STATUS; 
END; 
END; 

RESTORE CONTEXT (): 

USER_STATUS = .SAVE STATUS: 

READ-HEADER (CURRENT_FIBCFIB$W_FID), .PRIMARY_FCB); 


K 5 
CREAT =Jan-1985 17:42:14  VAN©11 Bliss-32 v4.0-742 p 
yor-052 es Pak ee EP Mt ttt eet age 96 


2 my ! 
: 939 1 ! If we make it this far, it means that: 1) there was no previous version of ; 
; 940 19 5 ! the file; 2) the previous version of the file is not eccossanles or 3) the ; 
>; 941 19 § ' current process does not have access to the previous version. in any of $ 
; ee 13 ! these cases, propagate as a newly created file. : 
3 eee 1985 STATUS = KERNEL_CALL (COPY_INFO, .DIR_FCB, -PRIMARY_FCB, .FIB, 1); : 
s an8 Pak RETURN .STATUS; 3 
: 948 1908 1 END; ! End of routine PROPAGATE_ATTR : 
-EXTRN OPEN_FILE, CLOSE_FILE ; 
007C 00000 PROPAGATE_ATTR: 3 
-@ORD Save R2,R3,R4,R5,R6 : 1818 : 
55 08 AA 9E MOVAB (BASE) Rr§ > 1869 ; 
54 o14c CA 9E v 32(BASE), R4 : ; 
D 00C CF OO MOVAL $, (FP) 3 é 
0 65 0D MOVL (R5), RO ; 1892 3 
24 Ad 64 6 29 CMPC3 #6, (R4), 36(RO) : : 
4 § BNEQ 1 : 3 
50 01 90 MOVL = AT, RO ; 1893 : 
64 B5 TSTwW (R4) ; 1895 3 
08 iF BNEQ gs $ 3 
05 Aa 9 TSTB (R4) 3; 1896 PF 
03 12 BNEQ $ : 3 
0091 31 BRw & : ; 
CO =sAA 80 AA D MOVL cash rine: -64 (BASE) ; 1900 é 
5 65 D MOVL (R5), FIL 3; 1901 3 
5 14 AA OD MOVL 20(BASE), SAVCURRINDX 3 1398 3 
0000G CF 00 FB CALLS #0, SAVE_CONTEXT ; 190 é 
2 00 PUSHL #2 ; 1904 $ 
00006 CF 3 FB CALLS #2, OPEN, FILE _ 
52 56 ) MOVL 45 WINDOW 3 3 
§ 1 BEQL ; 1905 3 
54 18 A2 OD MOVL 24( WINDOW), FCB ; 1908 é 
51 90 AA DOD MOVL -112(BASE), R1 ; 1910 $ 
33 06 ac O pov re. R 3 3 
7E 0B AI! 0 0 gf EXTZV #0, #2, 11(R1), -(SP) : 
6E 2 AO 91 CMPB =s-s«&6(RO),. (SP) : 
06 18 BLEQU 3 3 
6E 2E AO QA MOVZBL 46(RO), (SP) : 
6 ) PUSHL (R5) ; 1909 
7E 4 70 mOvVa #4, -(SP) : 
00006 CF f CALLS #4, CHECK_PROTECT ; 
3 E BLBC 4 3 
14 AA 8° VL savcyen ey. 20‘ BASE) : 1920 
03 AA BISB2 #48 (BASE) ; 1921 
E D4 CLRL. 0 = §P) : 1922 
96 AC 0D PUSHL FIB ; 
0050 8F 6B PUSHR #*M<R4,R6> : 


j 
; 
ee a 


5 
CREAT b- Jan-1985 17:42:14 AX-11 Bliss-32 V4.0-742 P 
yoe-082 -0¢t-1984 12:4 28:36 YP TIX BUGSREICREATES 832;1 ae 3 
0000v cf 4 F CALLS #4, COPY_INFO : 
3 0 OD MOVL RO, STATOS : 
: DD PUSHL WINDOW : 
000G CF FB CALLS #1, CLOSE_FILE : 
000G CF Q FB 00 CALLS #0. RESTORE _CONTEXT : 
DD PUSHL  (R5) : 
7E 10 AA s ADDL3 #4, 16(BASE), -(SP) : 
00006 CF é Fe CALL #2. READ_HEADER : 
00006 CF 0 FB 4$: CALLS #0, RESTORE_CONTEXT : 
80 AA CO AA OD MOVL  =64(BASE), =128(BASE) : 
5 0D PUSH (RS) : 
7E 10 AA 4 1 ADDL 16(BASE), =(SP) : 
00006 ¢F : FB CALLS ae. READ_HEADER : 
DD 5$: PUSHL @# : 
04 ac DD PUSHL FB ; 
65 DD PUSHL  (R5) : 
0000 CA OD PUSHL 208(BASE) ; 
0000v CF 6 F CALLS #4, COPY_INF : 
3 9 D MOVL RO, STATOS ; 
0 te 6$: MOVL STATUS, RO ; 
0000 7$: . WORD Seve nothing : 
7E 04 CLRL 0s = (SP) ; 
5E bp 0 PUSHL sp : 
7E 04 AC 7D 0000 MOVO 4(AP), =(SP) : 
0000v CF 03 FB 0000C CALLS #3, PROPAGATE HANDLER : 
04 000€1 RET : 


; Routine Size: 226 bytes, Routine Base: SCODES + 058F 


a 5 
“jan-1985 17:42:14 AX-11 Bliss-32 V4.0-742 Page 28 
ety 7 15:08:36 F11X.BUGSRCICREATE .832;1 . (4) 
; 950 1944 1 ROUTINE PROPAGATE_HANDLER (SIGNAL, MECHANISM) = 
; 951 1945 1 
; 926 1266 1 lee 
; 1947 1! 
; 9546 1948 1 ! FUNCTIONAL DESCRIPTION: 
3 955 1949 1! 
; We 1950 1! This routine is the condition handler for the file attribute 
; 957 1951 1! propagation. It unwinds and returns a value of zero to 
; 958 1928 , ; indicate a failure. 
: 959 1955 1! 
> 960 1954 1 ! CALLING SEQUENCE: 
; 961 1955 1! PROPAGATE HANDLER (ARG1, ARG2) 
; 206 1328 1! 
; 9 195 1 ! INPUT PARAMETERS: 
> 964 1958 1! ARG]: address of the signal array 
; 965 1959 1! ARG2: address of the mechanism array 
; 966 1960 1! 
; 967 1961 1 ! IMPLICIT INPUTS: 
; 968 1306 1! none 
> 969 1965 1! 
: 970 1964 1 ! OUTPUT PARAMETERS: 
: 971 1965 1! none 
: 97 1966 1! 
; 97 1967 1°! IMPLICIT OUTPUTS: ; ; 
3 oe 13e8 : } Value of the routine that caused the exception is returned as zero. 
: 976 1970 1 ! ROUTING VALUE: 
s 7 1971 1! SS$_RESIGNAL or none 
; 978 p44 1! 
: 979 1975 1! SIDE EFFECTS: 
; 980 1974 1! none 
; #981 1975 7! 
: 98 1378 1 !<- 
; 98 1977 1 
; «984 1978 § BEGIN 
; 985 1979 
> 986 1980 MAP 
,. ver 1981 SIGNAL : REF BBLOCK, ' Signal argument array 
3 oa8 1958 MECHANISM : REF BBLOCK; ! Mechanism argument array 
; 990 1984 ! If the condition is change mode to user (ERR_EXIT) set the saved value 
; «991 1985 : of RO to zero (indicating a failure) and unwind to the PROPAGATE_ATIR 
3 4 1906 ! routine. 
: 994 1988 IF .SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER 
: «995 1989 THEN 
; 9% 1990 BEGIN ‘ 
: 997 1991 ME CHANISMCCHFSL_MCH_SAVRO] = 0; ! Note failure 
; 998 P 1998 SUNWIND (DEPADR™= MECHAN] SMCCHFSL_MCH_DEPTH), 
; 999 199 NEWPC = 0); 
:; 1000 1994 END; 
; 1001 1995 a 
3 1008 1996 RETURN SS$_RESIGNAL; ! Ignored when unwinding 
; 100 1997 2 : 
3 1004 1998 1 END; ! End of routine PROPAGATE _HANDLER 


2 
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CREATE =Jan=1985 17:42:14 AX-11 Bliss-32 V +85 h) re P 29 
v04-002 sot a 1982 13:28:38 F1IX.BUGSRCICREAT E.632;1 tr (4) 


~EXTRN SYSSUNWIND 
0000 00000 PROPAGATE a + 


.@0 Save A ras” 3 1944 
50 06 =A 0002 MOVL SIGNAL : 1988 
00000424 F 06 =A 0006 CMPL RODS e n 60 : 
1 i 00 ’ BNEQ 1$ : 
50 08 AC 00 0001 MOVL ME CHANI SM, RO + 1991 
CC AO 4 00014 CLRL 12 (RO) : 
7E D4 00017 CLRL_ =(SP) + 1993 
7E 08 05 C1 19 ADDL3 #8, ebb ld -(SP) : 
000000006 0 FB : CALLS @ SVSSUNWI IND : 
50 0918 8F 3¢ 0025 1$ MOVZWL #2328, RO : 1996 
4 0002A RET : 1998 


; Routine Size: 43 bytes, Routine Base: S$CODE$ + 0671 
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ROUTINE COPY_INFO (OLD_FILE_FCB, NEW_FILE_FCB, FIB, NEW_FILE) : L_NORM = 


tee 
' 
FUNCTIONAL DESCRIPTION: 


This routine actually copies the propagated information. This 
routine must be cailed in kernel mode. The propagation takes 
place according to the following rules: 


VIC - For a newly created file, the file takes the UIC of the 
creator unless the creator has resource rights to the 
owner of the directory. In which case, ihe UIC of the 
directory owner is used. For a new version of an 
existing file, the UIC of the creator is used if the 
creator does not have resource rightss to either the 
old version owner or the directory owner. If the 
creator has resource rights to the old version owner, 
that UIC is used. If not, and the creator has resource 
a a to mg directory owner, the directory owner 

s used. 


Sss 
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Protection - For a newly created file, the protection is taken from 
the directory default protection ACE, if it exists. f 
it does not exist, the process default protection is used. 
For a new version of an waves ae file, the protection is 
taken from the old version of the file. 
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For a newly created file, the ACL is taken from the 
directory default ACL. If no directory deftauit ACL 
exists, no ACL is propagated. for a new version of 
an existing file, the ACL is taken from the old 

version of the file. 


het ty 


ww 


CALLING SEQUENCE: 
COPY_INFO (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: } 
ARG]: address of the old file's FCB (if one) 
ARG2: address of the new file's FCB 
ARGS: address of the Fl 
RG4: 1 if defaults for a new file Bae : 
0 if defaults for a new version of an existing file 


IMPLICIT INPUTS: 
DIR_FCB: address of parent directory FCB 


OUTPUT PARAMETERS: 
none 
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aS Oooococoocccoooo 
RRRRARE ERE RE RE PAA NARA RIOROFORD 
MEW (OOO NO UE WH — O ONO UEWN—O O@ 


IMPLICIT OUTPUTS: 
none 
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epthen VALUE : 
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SIDE EFFECTS: 


6 
CREAT -Jan-1985 17:42:14 AX-11 Bliss-32 V4.0-742 Page 31 
Von-082 b-an-19 4 12:45:26 F11X.BUGSRCICREATE .B32;1 . (a 
: 1063 836 1} The ACL building routine is called to update the new file's file 
: 1064 5 : } headers with the copied ACL. 
1068 $85 | ice 
; 1067 060 1 
: 1068 061 BEGIN 
3: 1069 06 
; 1070 06 MAP 
3; 1071 064 OLD_FILE_FCB : REF BBLOCK, ! Address of old file's FCB 
3 Ire 065 NEW _FILE_FCB : REF BBLOCK, ! Address of new file's FCB 
4 Ore $98 FIB : REF BBLOCK; ! Address of the FIB 
: 1075 B 2 LINKAGE 
; 107%6 069 L_SEARCH_RIGHT = JSB (REGISTER = 2. REGISTER = 4; 
; 1077 979 REGISTER = 1, REGISTER = 5), 
: 1079 Ore LF INDACL = JSB (REGISTER = 3, REGISTER = 5, 
; 1080 07 REGISTER = 6, REGISTER 1; 
; 1081 074 REGISTER = 15; 
1088 Ore > LOCAL 
> 1084 07 PCB : REF BBLOCK, ' PCB address of 1/0 packet owner 
; 1085 078 ARB : REF BBLOCK, ! Access rights block address 
: 1086 079 IDENTIFIER ' Identifier being souent 
> 1087 080 RIGHTS DESC, i Rights list descr addr 
3; 1088 081 1D_FOUND : REF BBLOCK, ' Addr of ID found 
: 1089 oes RIGHTS SEG : REF BBLOCK, ! Addr of rights segment 
; 1090 08 ACE_ADBRESS : REF BBLOCK, ! Pointer to default protection ACE 
: 1091 sone OLD_ACL_SEGMENT : REF BBLOCK, ! Address of old ACL segment 
; 1098 soap NEW_ACL_SEGMENT : REF BBLOCK; ! Address of new ACL segment 
5 1094 2087 EXTERNAL 
3 Hh 3 <4 +43 SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE); ' PCB vector 
; 1097 3090 BIND_ COMMON; 
> 1099 209 EXTERNAL ROUTINE 
: 1100 209 3 EXESSEARCH_RIGHT : L-SEARCH_RIGHT ADDRESSING_MODE (GENERAL), 
3; 1101 $008 ' Seach for specified ID 
3 1198 095 2 EXESF INDACL : L_FINDACL ADDRESSING_MODE (GENERAL), ! Locate an ACE 
3; 110 096 § ACL_INIT_QUEUVE : ABDRESSING_MODE (GENERAL), ! Initialize ACL queue 
3 1104 097 ACL” COPYACL : L_NORM, ' Routine to propagate desired ACEs 
: 1105 4 CHARGE _OWNER : LINORM; ! Change file owner UIC 
; 1107 100 ENABLE PROPAGATE _HANDLER; 
: 1109 108 ! Initialize some necessary pointers. 
: 1111 104 PCB = .SCHSGL_PCBVECL.(10_PACKETCIRPSL_P1DJ)<0,16>); 
: Wiig 105 ARB = .10_ PACRET tn , ARB); 
$ 1337 : RIGHTS_DESC = ARBCLARB C_RIGHTSLIST); 
: 1115 198 ! If is a new file propagate the information from the parent directory 
3 1318 1 i or the creator of the file as necessary. 
5 1118 111 2 IF .NEW_FILE 
3 1119 112 THEN 


he 1) id 
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=Jan-1985 17:42:14 AX-11 Bliss-32 V4.0-742 
voe-0 2 B-Janc19¢s 13348538 ERT ix. BUGSRCICREATE.B52¢1 
; 1120 113 BEGIN : 
: 1131 114 3 IF .DIR_FCB NEQ 0 : 
1158 16 6 Maecty 
SH BHD gE oe sue recta ingen, acy tay te. 0 ! 
711 $ 119 4 IF “BBLOCKEDIR FCBLE CER ORBD, ORB$V_ACL_GUEUE] ~ : 
1158 is) 8 THEN BEGIN : 
3 1 OLD ACL SEGMENT = .DIR_FCBCFCBSL_ACLFLI; ; 
; 1 6 i § UNTIL -OLD_ACL_SEGMENT EQLA DIR-FCBEFCBSL_ACLFLI ; 
211 ¢ 125 6 BEGIN : 
at 159 § TF ERESF INDACL CACESC_DIRDEF ; 
: 1135 128 6 -OLD_ACL SEGMENTCACLSW SIZE] - ACLSC LENGTH, : 
711 1¢9 6 OLD_ACL SEGMENTCACLSL_CISTJ, .ACE_ADBRESS; : 
3 1137 130 6 ACE-ADDRESS) : 
: 1189 3132 : THEN BEGIN ; 
; (NEW_FILE_F CBCFCBSW_FILEPROT])<0,4> = .ACE_ADDRESSCACESL_SYS_PROT); : 
He ge TRE retcl ¢ AEE Apne A cae ae : 
; 1108 3136 : (NEW"F ILE “FCB F CBSW_F ILEPROT )<18,4> =. ACE_ADDRESSLACESC_ WOR PROT); : 
Me | HRY ad : 
; 1146 139 § OLD ACL _SEGMENT = .OLD_ACL_SEGMENTCACLSL_FLINK); : 
. 4 ry ; 
; ACL INIT QUEUE (NEW FILE_FCBCFCBSR_ORB)); ; 
; 1149 Ae ; RETORN-ACL COPYACL T.DIR-FCB, .NEWLFILE_FCB, (IF .FIBCFIBSV_DIRACLI : 
; 1150 a 5 : . THEN 2 ELSE 13); : 
> 1151 144 4 END; : 
: 1138 145 4 RETURN 1; : 
tea 129 3 eno; : 
; 118 129 ! If it is a new version of an existing file, propagate the information : 
3; 1157 150 ! from the old version of the file, the parent directory, or the creator : 
; 1158 151 ! of the file. ; 
: 1159 138 : 
3 1169 13? ! First, set the owner of the new file. : 
: 116¢ 155 2 IF NOT CHANGE OUNER (.OLD_FILE_FCBCFCBSL_FILEOWNER], .NEW_FILE_FCB, 0) : 
3 116 136 AND .DIR FCB REQ : 
: 1164 13 THEN CHARGE OWNER (.DIR_FCBCFCBSL_FILEOWNER], .NEW_FILE_FCB, 0); 
; 1168 139 ! Next, propagate the protection from the old file. 
; 1188 161 NEW_FILE_FCBCFCBSW_FILEPROT) = .OLD_FILE_FCBCFCBSW_FILEPROT); 
: 11% 168 ! Last, but not least, copy the ACL (excluding ACEs marked as NOPROPAGATE). 
: 1171 
; N72 165 2 IF .BBLOCKCOLD_FILE_FCBCFCBSR_ORB), ORB$V_ACL_QUEUE) 
HSI § acer 
: 1 ACL_INIT_QUEUE (NEW_FILE_FCBCFCBSR_ORB)); 
: 1198 189 RETORN ATL_COPYACL T.OLD-FILE_FCB,~.NEW_FILE_FCB, 2) 
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Reasecl9Qs TZgel¢ UMN ABUL SH 
END 
ELSE RETURN 1; 
END; ! End of routine COPY_INFO 


.EXTRN E 
“EXTRN E 
“EXTRN 
OBFC 00000 COPY_INFO: 
.WORD 


XESSEARCH_RIGHT 
MESFINDACEC, ACL_COPYACL 
CHANGE _ OWNER 


Save R2,R3,R4,R5,R6,R7,RB,RI,R11 
7 . G ff "0 ANGE R, R 
0000 G 00 ACL_INIT QUEUE, R7 
D CA 9E MO BASEY, R4 
F F FP) 
000000006 
90 
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= (SP) 
NEW RULE FCB 


NEG FILE FCB. RO 
ePetPCB) 5 RO) 
#i, §9(RO), 38 


1 Fn OLD_ACL_SEGMENT 
#128, (RS) 
OLD_ACL SEGMENT. RO 


asé ADDRESS 

(OLD ACL SEGMENT), R6 
ad ACL_SEGMENT), R5 
Wie, RS 
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EXESF INDACL 


NEW FILE FCB, RO 
B(ACE_ADDRESS), #0, #4, 112(RO) 


nel FILE_FCB 
1O(ACE_ABDRESS), #4, #4, 112(RO) 
FICE FCB, RO 
#0, #4, 113(RO) 


NEW 
Bere 4 
SOCRCE ADDRESS), #4, #4, 113(RO) 
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Routine Base: 


3; Routine Size: 


52 
ag 00000058 
0 oc 

AO 
08 
8 
50 Oe 
8 

68 

12 
08 

50 
58 

68 
50 06 
al 0 
50 04 

AO 
AC 00000058 

67 
7E 04 

CF 

50 
7E 04 

CF 


— 


QOOoww 
OD~NPIMBMrOOCCW 
oo w 
foe 


ooon 


Sssssssess 


3 
o~ 
ed 


o 
wn 


OoOooooo 
COOoOOoCoOooSo 


UOF FF NSO POOCOCOF ORF 
COO OMBWL OE PINION S@ MTOM 


Ssssss 


COMA AAA MMMMMMMMoO 


MINIM SP OOWOS OS fSVOF 


NOVVO-OMV9000—9C000—0mM070 
DIV0CS FWUDDICS F-90900 —90 ow o> 


oo 
8 


—— 
WVINIODOOWP USO 


SPSPaocon oes 
fForoooe——o S 
i=) 
OOCooocccoooo0oo 
Oe a ed od od oo 


ae 


oooo 
Mmooy 


SCODES + 069C 


, 56(RO), 7$ 


: 


OLD FILE FCB, =(SP) 
#3, ACL_COPYACL 


#1, RO 
Save nothing 
=(SP) 


SP 
4 (AP) 


-(SP) 
#3, PROPAGATE_HANDLER 


VAN=11 Bliss 
F11X.BUGSRC 
LD_ACL_ SEGMENT), OLD_ACL_SEGMENT 


8, NEW_FILE FCB 
ACL_INIT_Queué 
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Oct-19 726 F11X.BUGSRCICREATE.B32; 1 ) 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 2018 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ecccssses Syabol§ ooceeece Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA18:CSYSLIBILIB.L32;1 18619 140 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CREATE/OBJ=OBJ$:CREATE MSRC$:CREATE/UPDATE=(BUGS$: CREATE) 


; Size: 2018 code + 0 data bytes 
01:11.2 


Elapsed. finer 01:44. 
Lines/CPU Min: 8 


183 
Lexemes/CPU-Min: 3642 
Memo 


ry Used: 549 pages 
Compilation Complete 
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